From 94828e9e13b38ce36426f20ee041b2a7fba96401 Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 12 Feb 2003 09:25:22 +0000
Subject: [PATCH] (find-alternate-file): Check whether `dired-directory' is
 bound.

---
 lisp/files.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/files.el b/lisp/files.el
index 070db9f3be4..5ba163fc671 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -940,7 +940,7 @@ If the current buffer now contains an empty file that you just visited
   (let ((obuf (current-buffer))
 	(ofile buffer-file-name)
 	(onum buffer-file-number)
-	(odir dired-directory)
+	(odir (bound-and-true-p dired-directory))
 	(otrue buffer-file-truename)
 	(oname (buffer-name)))
     (if (get-buffer " **lose**")
-- 
2.30.2